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# ! /usr/bin/perl 
use DBI; 

$myurl = ' http : / /MoneyOrdersOnline . com/a ' ; 
&main; 

sub main{ 

$dbh = DBI->connect ( 1 DBI : mysql : moneyordersonline : localhos t 1 , 1 moo 1 , ' ' , 
{RaiseError => 0, PrintError = > 0}); 
unless ($dbh) { 

print_file_hinted( ' techdiff.html ' , {error = > 'cannot access 
database 1 } ) ; 

return; } 

&go; 

$dbh->disconnect ; } 



sub go{ 

my($query) ; 

$query = parse__query ( ) ; 
□ if ( $query-> {action} eq 
( $query-> {action} eq 
{ $ query- >{ action} eq 
( $query-> {action} eq 
<$query->{trans„approved} ) 
( $query-> {secret} ) 



tfl if 

M if 

-P if 

M- if 

S if 
return; } 



' lookup„ebay ' 
' have„inf o ' ) 
' choice 1 ) 
' download ' ) 



{ lookup„ebay { $query ) ; return; } 
{have„inf o ( $query ) ; return; } 
{choice ($query) ; return; } 

{download ($query) ; return; } 
{ f rom„mol ($query) ; return; } 

{from_email ($query) ; 



$query~>{ error} .= " <BR>unknown action [ $query-> { action} ] \n " ; 



print„f ile„_hinted< 1 techdif f . html 1 , $query) ; } 



suli2lookup__ebay { 

m my($query) = @_; 

□ # Here is were we look up the ebay item. . . 
Q@$query{qw ( error description buyer price seller) } = 
retrieve_ebay_info ( $query-> { itemno} ) ; 

#@$query{qw( error description buyer price seller)} = ( 
widget 1 , 1 tim@nerds . com' , ' 33 . 22 ' , 1 brianvonQf pga . com' ) ; 

# If the buyer or seller looks like an email address, 
@$query {b_email , b_email2} - @$query {buyer , buyer} if 
/ A [0-9\-\.\_a-z]+@[0-9\-\ . \_a-z]+$/; 

@$query { s__email , s__email2} - @$query {seller, seller} if $query-> { seller } 
=~ / /v [0-9\-\.\_a-z]+@[0-9\-\. \_a-z]+$/; 

print„f ile__hinted ( 1 moreinf o . html ' , $query) ; } 



' , 'A nice pretty 

it probably is . . . 
$query-> {buyer } 



sub have„info{ 

my($query) = @_; 
my ( $sth, $n) ; 

# Validate the information 
my ( $ error ) ; 

for (qw (price shipping 

b_f name b_lname b_address b_city b_state b_zipcode 
s^fname s„lname s_address s„city s„state s__zipcode) ) 
{ $error .= "<LI>Specify the $__" unless $query-> { $„} ; } 

$error =- s/\bb_/buyer /g; 
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$error =~ s/mname /middle name/g; 
$error s/lname/last name/g; 

if ($query->{b_email} $query-> {b__email } ne $query->{b__email2} ) 

{ $error .= "<LI>The buyer's email addresses must match"; } 

if { $query->{s__email} && $query-> { s„_email } ne $query->{s„email2} ) 

{ $error . = " <Ll>The seller's email addresses must match"; } 

if ($error) { 

$query->{ error} = "Correct the following errors : <UL>$error</UL>" ; 
print__f ile_Jhinted ( 'moreinfo.html' , $query) ; 
return; } 

# Calculate fee. . . 

$query-> {amount } = $query-> {price} + $query-> { shipping} ; 
$query->{fee} = sprintf ( " %0 . 2 f " , < $query-> {amount } * .04) - 0.01); 
$query->{fee} = sprintf (" %0 . 2f " , ( $query-> { f ee} < 1.00) ? 0.99 : $query 
>{fee}) ; 

$query™> { total} = $query-> {amount } + $query-> { f ee} ; 

# Create a new check number 
my ( $checkno ) ; 

y # Pick a random transaction number and make sure it isn't used... 
JJt do{ $checkno = int (rand ( 8999999 ) ) + 1000000; 

j* $n = $dbh->do ( 1 select NULL from transaction where transnumber = ?' 

y b undef , $checkno) ; } 

y~ while ($n >= 1) ; 
■ yj $query~>{checkno} = $checkno; 

01 $sth - $dbh->prepare ( "replace into transaction set" . 

s " modified = UNIX_TIMESTAMP ( ) , transnumber = ? , " . 

" b„email = ?, b_f name = ?, b„mname = ?, b_lname = ?, 
bpLfeddress = ?, b„city = ?, b_state = ?, b„zipcode = ?," . 
^ M s_email = ?, s_fname = ?, s„mname = ?, s_lname = ?, 

spaddress = ?, s_city = ?, s„state = ?, s_zipcode = ? , " . 

" description = ?, itemno = ?, notify = ?, price = 100 * 
? 4 f shipping = 100 * ?, fee = 100 * ?," . 

" b„secret = ?, s„secret = ?"); 
$n = $sth->execute (@$query {qw (checkno 

b__email b__fname b_mname b__lname b__address b_city b_state 

b_zipcode 

s__email s„fname sjnname s__lname s_address s_city s„state 

s„zipcode 

description itemno notify price shipping fee b__secret 

s„secret ) } ) ; 

if ($n != 1) { 

$query~>{ error} . - "<BR>in have_info: select transaction n=[$n]\n n 
print_f ile_hinted( ' techdif f .html ' , $query) ; 
return; } 

$query->{ image} = "http : / /moneyordersonline . com/check/check . cgi / . gif " 

. "?checkno=" . URL :: encode ( $query-> { checkno } ) 
. "&itemno=" . URL :: encode ( $query-> { itemno} ) 
. "&payee=" . URL: : encode ( "@$query{ s__f name, 

sjname} " ) 

. " &amount= " . URL : : encode ( $query-> { amount } ) ; 
print_.fi le_hinted ( * howpay . html ' , $query) ; } 
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my $checkno = $query->{ ' checkno ' } | | $query->{ 'user2 • } ; 

my $itemno = $query-> { ' itemno ' } || $query-> { 1 user3 ' } ; 

unless ($checkno) { 

$guery-> { error } .= "<BR>check number is missing\n" ; 
print_f ile„hinted < 1 techdif f . html ' , $query) ; 
return; } 

if ($query->{ trans_approved} ne 1 APPROVED ' ) { 

$query->{ error} .= "<BR>transaction was not approved\n" ; 
print_f ile_hinted ( ' techdiff.html' , $query) ; 
return; } 

my ( $sth, $n) ; 

$sth = $dbh->prepare ( "select" . 

" b__email, b_fname, b_mname, b„lname, b__address, b__city, b_state, 
b__zipcode, " . 

" s_email, s_fname, s_mname , s_lname , s__address ; s„_city, s^state, 
s„zipcode, " . 

" description, itemno, notify, price/100, shipping/100, fee/100, " 

11 b^secret, s_secret" . 
^ " from transaction where transnumber = ?"); 

sj unless ($sth) { 

j* $query->{ error} . = "<BR>in f rom_mol : prepare select transaction 

failed: @{ [DBI->errstr ] }\n" ; 
yk print_f ile_Jiinted ( ' techdiff.html 1 , $query) ; 

id return ; } 

01 $n = $sth->execute ( $checkno) ; 
* if <$n != 1) 

{ $query->{ error} .= "<BR>select transaction n=[$n]\n"; 
; ?J print_f ile_hinted{ 'techdiff.html 1 , $query) ; 

HI return; } 

'zl my($data) ; 

'iZ @$data{qw( b_email b_ fname b_rnname b„lname b__address b_city b_state 

b^zipcode 

s_zipcode 



s_email s_fname s_mname s_lname s_address s„city s_state 



description itemno notify price shipping fee 
b„secret s_secret 
) } = $sth->f etchrow_array ; 
$sth-> finish; 

if ($data->{itemno} 1= $itemno) 

{ $query->{ error} .= "<BR>wrong itemno\n" ; 

print_f ile_hinted ( 'techdiff.html' , $query) ; 

return; } 

$data-> {amount} = $data->{price} + $data->{shipping} ; 
$data->{ total} = $data-> {amount } + $data-> { f ee} ; 
if ($data->{ total} J= $query->{ trans„amount } ) 

{ $query~> { error} . = "<BR>in f rom_mol : transaction amount is wrong 
($data->{ total} vs. $query->{ trans_amount } \n" ; 

print_f ile__hinted ( 'techdiff.html' , $query) ; 
return; } 
$data-> {b__email } = $query->{ email} ; 
$data-> {b_fname} = $query-> { f irstname} ; 
$data->{b_lname} = $query-> { lastname} ; 
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$data~>{b_city} = $query->{city} ; 

$data~> {b_state} = $query-> { state} ; 

$data->{b„zipcode} = $query-> { zip} ; 

$data~>{status} = ' PAID CC ' ; 

$data~>{cc_type} = $query-> {cardtype} ; 

$data~> {cc^number } = $query-> {card„number } ; 

$data~>{cc_exp} = " $ query-> { exp_mon } / $query- > { exp_year } " ; 

$data~>{b_secret} = int (rand ( 89999 ) + 10000); 

$data->{s„secret} = int (rand ( 89999) + 10000); 

$data-> {checkno} = $checkno; 

if (0) 

{ &print_header ; 

print "<P>in f rorrwnol : data:\n"; 
for (sort keys %$data) 

{ print "<BR>   $__ -> $data->{ $_} \n" ; } } 

$sth - $dbh->prepare { "update transaction set" . 

" modified = UNIX_TIMESTAMP ( ) , " . 

" b_email - ?, b_fname = ?, b„mname = ?, b„lname = ?, 
bj~§ddress = ?, b„city = ?, b_state = ?, b^zipcode = ?," . 
TJ " status = ?, cc_type = ?, cc„number = ?, cc„exp = ? , " . 

" b_secret = ?, s_secret = ? where transnumber = ?"); 
unless ($sth) 

L& { $query-> {error } . = "<BR>in f ronwnol : prepare update transaction 
failed: @{ [DBI->errstr] } \n" ; 
01 print_f ile_hinted ( 1 techdif f . html ' , $query) ; 

a return; } 

M; $n = $sth->execute (@$data{qw( b_email b„fname b_mname b_lname 

b|j&ddress b_city b_state b_zipcode 

fZ status cc_type cc_number 

cgjLexp 

S2 b„secret s_secret checkno 

U )}) ; 

if ($n != 1) 

{ $query-> {error} . = "<BR>in f ronwnol : execute failed n=[$n]\n" ; 

print_f ile_hinted( ' techdif f. html ' , $query) ; 

return; } 
my ($m, $n) ; 

if ($data->{notify} eq 'yes') { 
$m = « 1 EOF ' ; 

From: MoneyOrdersOnline . com <Fulf illment@MoneyOrdersOnline . com> 
To: {b_email} 

Subject: Money Order for eBay Item #{itemno} 
To Money Orders Online.com Customer: 

Your purchase of a money order in the amount of $ {amount} is complete. 
The money order has been delivered to the seller {seller} . Including 
the processing fee of ${fee}, a total amount of ${ total} has been 
charged to your {cc_type} credit card {cc_number} . 

If for some reason you wish to cancel this money order, and the seller 
has not yet retrieved the money order, you can go to 
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to cancel . 

Thank you for using MoneyOrdersOnline.com! 
EOF 

$n = « ' EOF ' ; 

From: MoneyOrder sOnl ine . com <Fulf illment@MoneyOrdersOnline . com> 
To: {s__email} 

Subject: Money Order for eBay Item #{itemno} 

We have been authorized to send you a money order on behalf of eBay 
user {buyer} for eBay item number #{itemno}. The amount of the money 
order is ${amount}. You can go to the following website and print the 
money order instantly on your own PC-compatible printer on plain paper 
and cash it just the same way as any other money order. 

{ {myurl} } /process . cgiPitemno- {itemno}&checkno== {checkno}&secret={s„secret} 

if! you do not have a PC-compatible printer, go to the same site and request 
ttie money order be sent to you via first-class mail. 

By^ the way, you can become a Money Orders Online PREFFERRED SELLER and get 
figee money order stock and address labels just for letting people know that 
ymi accept money orders online as payment for your auctioned items. Go to 
http : / /MoneyOrder sOnl ine . com/pref erred/intro .html 

fp&: more information. Being a preferred seller makes shipping your items a 
sfthp, with automatically printed address labels, official money order 
sfebck, and even preprinted postage with adhesive backing! Streamline your 
logistics and shipping operations by joining today! 

E& 

Li } else { 

$m = « ' EOF ' ; 

From: MoneyOrdersOnline . com <Fulf illment@MoneyOrdersOnline . com> 
To: {b__email} 

Subject: Money Order for eBay Item #{itemno} 
To Money Orders Online.com Customer: 

Your purchase of a money order in the amount of $ {amount} is complete. 
Including the processing fee of ${fee}, a total amount of ${ total} has 
been charged to your {cc„type} credit card {cc_number} . 

You have requested local delivery of your money order. Please go to 
the following URL to retrieve and print your money order. Please note 
that the money order can be printed only on PC-compatible computers. 

{ {myurl } } /process , cgi?itemno= { itemno) &checkno= {checkno} &secret= {b„secret} 

Thank you for using MoneyOrdersOnline.com! 
EOF 

} 
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} ■ 

sub from_email{ 

my ($ query) = @_; 

my $data = lookup ( [qw( status b_fname b_lname b„secret s^fname s_lname 
s„secret itemno price shipping fee)], $query, 'download'); 
return unless $data; 

@$data{checkno, itemno} = @$query {checkno, itemno}; 
if ' ($data->{status) =~ /^PRINTEDXb/ ) 

{ $query->{ error} .= "<BR>Money order was already $query {status} \n" ; 

print_f ile„hinted { 'techdiff.html' , $query) ; 

return; } 
my $who = $data-> { who } ; 
unless ($who) 

{ $query-> {error} .= "<BR>in from_email: Logic error: no who\n" ; 
print__f ile„hinted ( 'techdiff.html' , $query) ; 
return; } 

$fn = 1 click-buyer .html 1 if $who eq 'buyer'; 
$fn = 'click-seller .html ' if $who eq 'seller'; 

$data-> { image} = "http : / /moneyordersonline . com/ check /check . cgi/ . gif " 

. "?checkno=" . URL :: encode ( $data-> {checkno } ) 
. "&itemno=" . URL :: encode ( $data~> { itemno } ) 
. ,, &payee=" . URL: : encode {" @$data{ s__f name, 

s^JLname} " ) 

Ol . n &amount=" . URL: : encode ($data->{ amount} ) ; 

- print_f ile_hinted ( $f n, $data) ; } 

sQi> choice { 
^ my($query) = @_; 

Jfj my $data = lookup ( [qw ( status s„fname s_lname price shipping fee b_secret 
sj^ecret)], $query, 'choice'); 
^ return unless $data; 

@$data{disp, secret} = @$query {disp, secret}; 

if (0) 

{ &print_header ; 

print ,, status=$data->{status} secret = $data-> {secret } \n" ; 
return; } 

if ($data->{status} =~ / A PRINTED\b/ ) 
{ $query-> {error} .= "<BR>Money order was already $query { status } \n " ; 
print__f ilejiinted ( ' techdif f .html ' , $query) ; 
return; } 

if ($data->{who} eq 'buyer' $data->{disp} eq 'p-b-mail* 

|| $data-> {who} eq 'seller' && $data-> {disp} eq 'p-s-mail') 
{ print " Content- type : text /html\n\ncheck will be mailed to $data- 
>{who} \n u ; 

return; } 

if ( $data-> {who} eq 'seller' $data->{disp} eq 'p-s-decline 1 ) 
{ print "Content- type : text /html \n\nBuyer will be notified that you 
declined" ; 

return; } 

print._f ile__hinted ( ' download . html ' , $data) ;} 
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my $data = lookup ( [qw (b_f name b_lname b.secret s_fname s_lname s_secret 
itemno price shipping fee)], $query, 'download'); 
return unless $data; 
my $who = $data-> {who} ; 
unless ($who) 

{ $query->{ error} .= "<BR>in download: Logic error: no who 

secret=$query-> { secret} \n" ; 

print_file_hinted< 'techdiff.html' , $query) ; 

return; } 

if ($who eq 'buyer' && $query->{disp} eq 'p-b-mail' 

|| $who eq 'seller 1 && $query-> {disp} eq 'p-s-print' ) 
{ $payee = "@$data{qw(s_fname s_lname) } " ; } 
elsif ($who eq 'buyer' && $query-> {disp} eq ' p-b-deposit ' ) 
{ $payee = " @$data{qw (b_fname b_lname) } " ; } 

else {$query->{error} .= "<BR>in download: who=$who disp=$query-> {disp} 

payee=$payee\n" ; 

print_file_hinted( 'techdiff.html' , $query) ; 

^ return ; } 

5 my $memo = "eBay item #$data-> { itemno} " ; 
^ ray $echeck = load_f ile ( ' echeck.nif ' ) ; 

"J my $download = $echeck . join(';', today {) , $payee, $data-> { amount } , 

$data->{checkno} , 1 ' , $ secret) ; 
il print " Content- type : application/x-nicotine\nContent-lengtn : 
@y length ($download) ] } \n\n" , $download; } 

sub lookup { 

my ($£161(53, $query, $where) = @__; 

m my ($f ) ; 

H= for <<2$fields) 

■M { $f .= \ ' if $f ; 

3 $f -= ; 

D $f . - '/100' if (price | shipping | fee) $/ ; } 

if (0) 

{ &print_header ; 

print " <BR>f i elds =@$ fields \n " ; 

print "<BR>select $f from transaction where transnumber = ? and 

itemno = ?\n" ; 

return; } 

my $sth = $dbh->prepare(" select $f from transaction where transnumber - 

? and itemno - ? " ) ; 
unless ($sth) 

{ $query->{error} .= "<BR>in $where: prepare select transaction 

failed: @{ [DBI->errstr ] }\n" ; 

print„f ile___hinted( 'techdiff.html' , $query) ; 

return; } 

my $n = $sth->execute ( @$query { checkno , itemno}); 
if ($n ! = 1) 

{ $query->{ error} .= "<BR>in $where : select transaction n-l$nj 
[@$query{ checkno, itemno} ] \n" ; 

print_file_hinted( 'techdiff.html' , $query) ; 

return; } 
my ($data) ; 
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@$data{checkno, itemno} = @$query {checkno, itemno}; 

$data->{amount) - sprintf ( % . 2f 1 , $data-> {price} + $data-> { shipping} ) if 
exists $data->{price} exists $data-> { shipping} ; 

$data->{total} = sprintf ("%. 2f" , $data-> {amount} + $data-> { f ee} ) if 
exists $data->{ amount} exists $data-> { f ee} ; 

$data->{who} = 'buyer' if $query->{ ' secret ' } eq $data-> { 1 b_secret ' } ; 

$data->{who} = 'seller' if $query->{ ' secret 1 } eq $data-> { ' s_secret ' } ; 

$data; } 

sub isOK{ 

return $„[0] = ~ 

/^timkay\@ j A brianvon\@ | \@moneyordersonline . com$ | \@nerds . com$/i ; } 

sub sendmail{ 

my($message) - @_; 

my($to) = $message =~ / A To : \s+ ( . * ? ) Wim; 
local (*S) ; 

unless (isOK($to) open(S, " | /usr/lib/ sendmail -t" )) 
£1 { print "<BR>E-mail to $to failed\n" ; 
y**_ return 1; } 

^ print S $message; 
J* close (S) ; 

l2 &print_header; print " <BR>Mail sent to $to\n" ;} 

st|i retrieve_ebay__inf o { 
T my ($i tern) = @ — ; 

U my($html / $error, $description, $buyer, $left, $price, $quantity) ; 
flj $item =~ tr/0-9//cd; 

H return ('Enter a vaild item number.') unless $item =~ ( \d{ 8 , 10 } ) $/ ; 
If] print "<BR>get $item. . . http : / /cgi . ebay . com/aw- 
cdpl/eBaylSAPI . dll?Mf cISAPICommand=ViewItem&item= " . URL: : encode ( $i tern) . 

"%Si" ; 

$html = URL: : get ( 'http: //cgi .ebay . com/aw- 
cgi/eBaylSAPI .dll?MfcISAPICommand=ViewItem5citem= ' . URL: : encode ( $i tern) ) ; 
#pr int " <BR>HTML : [ [ [ $html ] ] ] \n " ; 

($description) = $html = ~ /bgcolor= " #99CCCC " > . * ?<b> ( . * ? ) <\ /b>/is ; 

$error = "Item #$item not found." unless $error || $description; 

($left) = $html =~ /<font . *?>Time 
lef t<\/font><\/td>. *?<bxfont . *?> ( . *?) <\/f ontx\/b>/is ; 

$error = 'The auction has not ended.' unless $error || $left =~ /auction 
has ended/ is ; 

($quantity) = $html =~ 
/<font . *?>Quantity<\/fontx\/td>. *?<b> ( - *?) <\/b>/is ; 

if ($quantity > 1) 

{ ($price) = $html =~ 

/<font.*?>Lowest<\/fontx\/td>.*?<b>( . *?) <\/b>/is; 

if <$price) { $price = ~ s/ A \$//; } 

else 

{ $error = 'Item did not sell' unless $error; 
($price) = $html =~ /<f ont . * ?>Starts 
at<\/fontx\/td>. *?<b>( . *?) <\/b>/is; } 
unless ($error) 



9/10 



( $seller ) = $html = ~ 
/<font . *?>Seller<\/f ontx\/td> . *?<bxa. *?>(.*?) <\ /a><\ /b>/is ; 
} else { 

($price) = $html =~ 
/<f ont . * ?>Currently<\ / f ont><\ / td> . *?<b> ( . *?) <\/b>/is ; 
if ($price) 

{ $price =~ s/ A \$//; 

} else 

{ $error = 'Item did not sell' unless $error; 

<$price) = $html /<f ont . *?>Starts 
at<\/fontx\/td> . *?<b> { . *?) <\/b>/is; } 
unless ($error) 

{ ($buyer) = $html =~ /<f ont . *?>High 

Bid<\/fontx\/td>. *?<bxa. *?> ( . *?)<\/ax\/b>/is; 

($seller) = $html =~ /<f ont . *?>Seller 
\ (RatingX) <\/font><\/td> . *?<bxa. *?> ( .*?)<\/ax\/b>/is; 
($error, $description, $buyer, $price, $seller);} 

suij; print_f ile_hinted{ 
C"! my($fn, $data) = @_; 
£ &print_header ; 

„w print subst (load_f ile ($fn) , $data);} 

suji= print_header { 

f J1 print " Content- type : text/html \n\n M unless $header__printed; 
$header_j?rinted++ ; } 

suly load_file{ 
ft my($fn) = @_; 
Zl my ($s) ; 
y local { *IN) ; 
^ if (open (IN, $fn) ) 

{ read(IN, $s, -s $fn) ; 

close (IN) ; } 
$s j| "Technical dif f icul ties\n " ; } 

sub subst { 

my($s, $data) = @„; 

$data-> {method} = ' POST ' ; 

$s =- s/{{ ( .*?) }}/eval<"\$$l") /gie; 

$s = ~ s/ "{(.*?)}" /quote($data->{$l} ) /gie; 

$s = ~ s/{=(.*?) }/URL: :encode($data->{$l} ) /gie; 

$s =~ s/{ ( .*?) }/$data->{$l}/gi; 

$s; } 

sub quote { 

my($s) = @_; 

$s =~ s/{[\\"])/\\$l/g; 

sub parse_query{ 

my ($content 7 $query) ; 
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{ my($ke y/ $val) = /*{.+?)=(.*)$/; 
next unless $key; 
$key =~ s/\+/ /g; 

$key =~ s/% ( [0-9a-z] [0-9a-z] ) /pack(H2 / $1) /ige; 
$val =~ s/\+/ /g; 

$val =~ s/%( [0-9a-z] [0-9a-z] ) /pack(H2, $1) /ige; 
$val =~ s/ A \s | \s$//g; 
$query->{$key} = $val; } 
if (0) 

{ &print_ header ; 

print "<P>In parse_query : query: \n" ; 
for {sort keys %$query) 

{print "<BR>   $_ --> $query-> { $„} \n " ; } } 
$ query; } 

sub today { 

my(@mon) = qw (January February March April May June July August 
Sept ember October November December) ; 

my($sec, $min, $hour, $mday, $mon / $year, $wday, $yday, $isdst) = 
lo£altime ( time) ; 

jf my $today = sprintf "%s %d, %d" , $mon[$mon] / $mday, 1900 + $year; 
y, $ today ; } 

pickage URL; 
uiH Socket; 

siit) get{ 

J my($remote / $path) = $_[0] =~ /" (?: http : \ / \ /)?(.+?)( \ /. * )?[ \r\n] *$ / 

my ($buf , $ret) ; 
Jfj #print "<BR>urlget [$remote] [$path]\n" ; 

Sf my($narne, $aliases, $addrtype, $length, $remoteaddr) = 
gethostbyname ($r emote) ; 

#print "<BR>found " , joint'. 1 , unpack(C4, $remoteaddr) ) , "\n" ; 
socket(S, PF_INET , SOCK_STREAM, 6) or print " <BR>socket : $!\n"; 
#print " <BR>connecting to $remote . . . \n" ; 

my $sin = sockaddr_in ( 80 , inet_aton ( $remote ) ) ; 

connect (S, $sin) or print "<BR>connect : $!\n" ; 
#print " <BR>Connected to $remote\n" ; 
select (S) ; $| = 1; select (STDOUT) ; 
print S " GET $path\r\n"; 
while (sysread(S, $buf, 10240)) 

{ $ret .= $buf; } 
close (S) ; 
$ret; } 

sub encode { 

my ( $ z ) = @_; 

$z = ~ s/ ( [ = \?\&\+;<>] ) /'%' . unpack (H2, $1) /ge; 

$z =~ tr/ /+/; 

$z;} 

### Local Variables: *** 



